(life-display-generation): Test for input manually if `sleeptime' is negative

or null.

diff --git a/lisp/play/life.el b/lisp/play/life.el
index 263c4450c9dd0a396e3e1c6ac21bb601721b77e1..a034c38740098fcd7934fffc78e92d98b1193834 100644 (file)
--- a/lisp/play/life.el
+++ b/lisp/play/life.el
@@ -269,7 +269,8 @@ generations (this defaults to 1)."
   (recenter 0)
 
   ;; Redisplay; if the user has hit a key, exit the loop.
-  (or (eq t (sit-for sleeptime))
+  (or (and (sit-for sleeptime) (< 0 sleeptime))
+      (not (input-pending-p))
       (throw 'life-exit nil)))
 
 (defun life-extinct-quit ()